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avoid missing your next 
free issue of 
Product Profiles, renew 
IMMEDIATELY by filling 
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cover coupon for a free 
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indicate the number of the 
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Slaving printers 
on Pick 

Although the Pick operating 
system has a fairly sophisticated 
spooler that does a good job of 
managing an arbitrary number of 
output queues among an arbitrary 
number of printers, there are still a 
couple of disadvantages to using 
spooled printers. For example, you 
might'not get immediate output on a 
spooled printer because it’s already tied 
up printing other jobs. Spooled printers 
also require their own ports, which can 
be in short supply. An often 
overlooked alternative to spooled 
printers are dedicated or “slave” 
printers, which plug into your terminal 
instead of your computer. 

Slave printers take advantage of 
the fact that most of today's display 
terminals come equipped with two 
serial connectors or ports. One port is 
typically labeled “modem" or 
“computer”, and is where the serial 
cable from the computer (or the phone 
line via a modem) is plugged in. The 
other “auxiliary” port is typically 
labeled “aux” or “printer”, and is where 
the serial cable from a slave printer can 


be plugged in. 

With a dedicated slave printer, a 
terminal can immediately print output 
whenever it wants, without requiring 
the spooler, and without requiring a 
port on the computer for the printer. 

As an example of how slave 
printers work with a terminal, let’s 
examine two typical peripherals for a 
Pick computer: aWysemodel50 
terminal and a C. Itoh dot matrix serial 
printer. 

After a Wyse 50 terminal is 
turned on, the characters it receives at 
its modem port are displayed on the 
screen. The aux port is not used at all. 
But if the Wyse 50 receives the special 
character equivalent to CHAR (24) in 
BASIC, subsequently received 
characters are not displayed, but are 
instead transmitted out the aux port If 
a printer is connected to the Wyse aux 
port it will receive and print those 
characters. 

When the Wyse 50 finally 
receives the character equivalent to 
CHAR (20 ), it will turn off its aux port 
and subsequent characters will again be 
displayed on the screen. That allows a 
program to start and stop output to the 
slave printer at will. 

For example: 


PRINT “OUTPUT TO THE CRT" 

PRINT CHAR(24) : ;* Aux port on 
PRINT “OUTPUT TO SLAVE PRINTER" 
PRINT CHAR (20) : ;* Aux port off 
PRINT “OUTPUT TO THE CRT" 

One problem with embedding 
CHAR () codes right in a program is 
that different terminal manufacturers 
often require different codes for 
controlling the aux port For example, 
while a CHAR (2 4) is necessary for a 
Wyse 50, another terminal model 
instead requires aCHAR( 27) followed 
by"#". 

Some Pick systems offer 
terminal-independent 6 functions that 
send the correct aux port control 
characters for each possible terminal 
type. For example, PRINT @ (-11) : 
turns on the aux port and PRINT 
6 (-12) turns it off on a Zebra system, 
regardless of the current terminal being 
used, so that programs can be written 
without using CHAR () that will always 
run correcdy even if a port’s terminal 
type is changed with the TERM 
command. A separate utility program 
is used to define what characters are 
actually transmitted when @ (-11) and 
@ (-12) are encountered in a program. 
If the current TERM setting is for 
terminal typeH, then 6 (-11) can 


translate into CHAR (24). If the TERM 
setting is type Q, then @ (-11) can 
generate CHAR (27) 

Most terminals recognize a large 
variety of special codes for controlling 
output to the aux port in different ways. 
For example, CHAR (18) causes a 
Wyse 50 to send received characters to 
the aux port and display them on the 
screen at the same time. 

CHAR(27) : "P " will print a copy of 
the current screen display. And 
holding down the SHIFT and CTRL 
keys while pressing PRINT on the 
keyboard allows the operator to 
manually toggle the aux port on and 
off. Consult your specific terminal’s 
documentation to find out the allowable 
ways to control your slave printer. 

Procs can also easily control your 
terminal’s aux port For example, the 
proc command T XI 8+ will output a 
hexadecimal 18 (decimal 24) character 
and turn the aux port on. A proc like 

PQ 

T X18-F 

HLIST CUSTOMERS (B) 

P 

T X0C, XI44- 

will turn the aux port on, print the 
report, output a form feed, and turn the 
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aux port off. The (B) option 
suppresses the line feed normally 
caused by the parsing of a command 
like LI ST, so a line feed won’t end up 
on die printer. 

When vising a modem, the 
character transmission speed is usually 
so slow that a slave printer can easily 
print and keep up with all characters 
received by the terminal. But with a 
direct connection to a computer, a 
terminal is usually receiving characters 
at a transmission rate of 9600 baud 
(almost 1000 characters per second) or 
more, which is faster than most serial 
slave printers can print. How can a 
slave printer keep up? 

One solution is for the terminal 
to receive data at the main port at a 
high rate like 9600 baud and send 
characters out the aux port at a slower 
rate that the printer can always keep up 
with, like 1200 baud. But an even 
better solution usually exists because 
most printers today have a few 
thousands characters or so of buffer 
memory. That means the printer can 
receive characters at a high baud rate, 
at least until its buffer memory is full, 
then print the contents of the buffer at 
its leisure. The advantage is that the 
terminal can quickly dump everything 
to the printer’s memory (a kind of 
spooling, but done with hardware) and 
then immediately become available to 
the operator, instead of being tied up at 
a slow aux baud rate waiting for the 
printer to finish. However, the terminal 
and the slave printer still need to 
“handshake”, so the terminal doesn’t 
continue sending characters out the aux 
port once die printer’s memory fills up. 

On ^tvse 50, the aux port can 
handshaking the data-terminal- 
ready or Eni^rotocol. That simply 
means that if the voltage is raised on 
pin 20 (called the DTR pin) of the anx 
port connertor, die terminal will stop 
transmitti^^H the aux port until the 
DTR sigrJHrops. If a slave printer 
also supports the DTR protocol (and 
most do), it can force the terminal to 
pause whenever the printer is too busy 
printing or its memory is full and there 
is a danger of characters being lost. 

Our example C. Itoh printer is 
easily configured for use with a Wyse 
SO. Small switches inside the printer 
can be set to make it use a baud rate of 
9600 and the DTR protocol. The 
SETUP key on the Wyse 50 keyboard 
allows the operator to define a 
matching baud rate of 9600 for the aux 
port Just about any four-wire cable, 
such as telephone wire, can be used to 
connect the two devices. Using the so- 
called RS232 convention, a wire from 
pin 20 of the connector on the printer 
goes to pin 20 on the terminal’s aux 
port for transmitting the DTR signal. 

Pin 7 goes to pin 7 for signal ground, 
pin 3 goes to pin 3 for transmitting the 
data to the printer, and pin 2 goes to pin 
2 for transmissions from the printer to 
the terminal. 

Now the printer is ready. The 
CRT can quickly dump a few thousand 
characters to the printer and then 
immediately go back to keyboard input 
and screen output while the slave 
prints. Occasionally, a long listing will 
fill the printer’s buffer, and the terminal 
will hang on the DTR signal, waiting 
for the printer to catch up, empty it’s 
buffer, and accept more data from the 
aux port But for shorter listings, the 
terminal will always be available. And 
printed output will always be 
immediate and close by, without 
requiring the spooler or its own port. 


This month’s 
mailbag 

More on lotto 

Though your article on lotto in 
Product Profiles #35 was no doubt 
intended as more of a theoretical 
platform for random number generation 
and database systems rather than a 
retirement planning exegesis, there are 
some of us who have been analyzing 
lotto on a Zebra in a less serendipitous 
fashion. 


On this coast, the belief is that 
the draw is not random, and that 
analysis of previous draws do show a 
bias. We are attempting to implement 
die “wheeling” (combination sampling) 
systems described in Gail Howard’s 
State Lotteries on numbers we 
determine to have an edge. For 
example, it almost appears that two 
numbers from the previous drawing 
will show up in the current drawing. 
Howard states that 87% of winning 
numbers have hit within die past ten 
games, and the majority of those have 


hit within the past five. V 

I would be interested in any work 
or ideas others might have pursued in. 
breaking die astronomical odds of lotto. 
It would be more interesting if the 
analysis were limited to a Pick system, 
rather than open to a Cray or a Bell Lab 
cluster analysis. After all, the idea is to 
win a million, not spend it. 

Archie M. Andrews 
Alexandria, VA 

We vaguely recall an article 
published in Time around 1947 that 
went something like this: two Students 


COURSEWARE!!! 


Now you can truly master the use of your Pick system with the finest 
computer-based training available from the leaders in tutorial software., 

/ ~h 

w«proo.7:r» s « t «"yo U «„,.,^.. urona| f 


w/th this leamina tle °tronic Tutorial 

word procliT 9 System you wilt . 081 


l ms wr*- ri 

Never before hasit bee“f s p° e a|s^t packaga. Learn right 
STSS-i” anr. exercises. 


The PROF Electronic Tutorial for Pick 

systeml'TOs'woSS elec,r »"ia learning 


Each of these training products is a complete, computer-based, self-study 
teaching system that anyone can use over and over again. Each teaches you 
through simulated hands-on work sessions in which you actively participate. 
They are clever, entertaining, and all learning is done right on the terminal. 


CRESCENDO Associates. Inc. 

24350 Joy Road. Suite 9 Redford Townsh*. Michigan 48239 13131537 1919 


CompuSheet +■ is a trademark of Interactive Systems 
Prof is a trademark of Crescendo Associates, Inc. 
Pick is a trademark of Pick Systems, Inline, CA 


Yes! Please send more info on:. 

Name_ 

Company __ 

Address_ 

City _S 

Phone _ 


State. 


Computer. 
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See what you*re missing ... 



Within minutes of loading the B-TREE-P source This customer has set up B-TREE-P for 

code, this customer began using B-TREE-P's purchase order inquiries. A file ot 

stat=ard “browser” for searching a 120,000+ ♦ multivalued line items and submultht ued 

record customer master file. Any nom^- _ delivery dates and quantities can instantly *m*m* 
company, or address can immediately be be viewed by item or by date. Page^an 

locO^d and displayed, just by typing one or be scrolled at the terminal, forwa£&r 

more characters that match the field. backward. Any range of data can be 

No more waiting for SELECTs! instantly printed. No more waiting for SORTs! 


Tired of waiting for your computer to SORT or SELECT your large data files? Need to quickly find any 
attribute? Want to scroll files up or down, in any sort order? Now you can use B-TREE-P to instantly search, 
sort, and scroll any data from any file! 

Now you can instantly look up customers by name, street, Zip code, or any other field — not just by 
customer number. Now you can immediately find inventory entries by quantity, cost, or description — not 
just by part number. Whatever files you use, now you can instantly locate and display your data any way 
you want, without having to wait for endless SORTs and SELECTS. 

Immediately display any record in any file just by typing one or more starting characters that match any 
field in the record. You can display not only a selected record, but also any previous and next records, 
using any sort order you specify. You can jump to any record in a file at any time, then browse through 
the file by scrolling up or down, a record at a time or a page at a time, in any sort order. 

As one of Semaphore’s programmers says: “We often ask ourselves why we waited so long to create B- 
TREE-P. After using it for our own production work, we wonder how we ever got by before without it. A Pick 
computer without B-TREE-P is like a car without wheels”. 
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...until you use B-TREE-P! 



Current Balance ID Number Location Inmates as of 20:34:’37 


132.99 £7- 
0.00 87- 
20.00 87 
0.99 87 
0.00 87- 
32.47 87- 
0.85 87- 
0.24 87- 
+— 
0.08 87- 
+— 

145.55 86- 
2.63 87 
0.00 86 
0.02 86 - 
12.72 87 
0.76 87- 
24.81 87- 
0.00 87- 
30.99 86- 
Type an ID number, 
Commands are: NEW 


JAY LEONARD 
LIN AKA HANSON 
JAMES 


015044 MCC A872 HAESSIG, GENE JASON 
205075 MCC B402 HAHN, ROBERT JAMES 
■009589 MJ 7665 HAHN, STEVEN MARK 
-019503 MJ 33 HALL, GEORGE 
•020649 MJ 2234 HANSEN, DAVID AMES 
020536 MCC D883 HANSOM, 

001584 MCC D228 HARGER, 

•002064 MJ 2277 HARPER, 

- + 

020596 MCC C877 HARRIS, WILLIAM KENNETH 
-+ 

194689 MCC A872 HARRISS, BARRY MICHAEL 
-019655 WCC HARTLEY, JERRY 
-023332 WCC HAWKINS, ANDREW 

015797 MCC F99 HAY, THOMAS MAYNARD 
HEATH, JACK ROBERT 
HEBERT, JOSEPH 
992223 MCC E333 HEIDENREICH, JAMES 
884552 MJ 221 HELSETH, LAWRENCE JAMES 
866866 MJ 2255 HELTON, JAMES AKA MIKE 
name, command, or hit RETURN: 


-888802 MJ 223 
204408 MCC D22 


CHANGE PRINT DISPLAY DROP PRIOR NEXT MOVE 


ORDER CUST# CUSTOMER 

I# DESCRIPTION. 

S# SHP DATE QTY. . 



**************** 




33033 A100 

AEROSPACE 

02 BENCH, LAMINATED 

01 

09-10-87 

10 

EXP: N/A 

PROD: N/A 

SHIP: N/A 




35220 L788 

LINCOM CO 

02 BENCH, LAMINATED 

01 

11-10-87 

10 

EXP: SALLY 

PROD: JAMES SHIP: QA CHECK 




35220 L788 

LINCOM CO 

02 BENCH, LAMINATED 

02 

12-10-87 

10 

EXP: SALLY 

PROD: N/A 

SHIP: N/A 




33033 A100 

AEROSPACE 

01 CASE, CLOCK, INS 

01 

09-10-87 

10 

EXP: N/A 

PROD: N/A 

SHIP : QA CHECK 




35220 L788 

LINCOM CO 

01 CASE, CLOCK, INS 

01 

09-10-87 

2 

EXP: N/A 

PROD: N/A 

SHIP : QA CHECK 




35220 L788 

LINCOM CO 

01 CASE, CLOCK, INS 

02 

10-10-87 

4 

EXP: N/A 

PROD : JAMES SHIP : QA CHECK 




33033 A100 

AEROSPACE 

03 TIP, PROBE, BAKE 

01 

09-10-87 

10 

EXP: N/A 

PROD: N/A 

SHIP : QA CHECK 






**************** 




SO# or Find or by: Part, 

Desc,Date,Rep,Name, 1 

Terr? 



This county jail uses B-TREE-P for inmate cash 
accounting. Although cash records are filed 
by inm<£*> booking numbers, B-TREE-P allows 
a list alphabetized by the name attribute to 
be displayed at all times, even as records 
are crewed and deleted at other terminals. 
Any inmate record (or nearest match) can 
be immediately found and displayed just by 
typing one or more characters in a name. 


This manufacturer uses B-TREE-P to let 
marketing personnel instantly display sales 
{2. orders six different ways: by part, by | > 
description, by ship date, by sales rep, by 
customer name, and by sales territory. With 
tea just a few keystrokes, operators can instarj 
display records under a new sort (subsorts 
too) or find and output a given item. 


B-TREE-P is a proven collection of BASIC subprograms for using B-trees on your computer system. B-tree$ 
allow any of the data in any of your files to be instantly located and displayed in any sort order, without 

having to wait for SORT or SELECT commands. 

B-TREE-P and a few optional minor modifications to your existing data entry programs are all that is 
necessary for you to immediately be able to search, browse, display, or print your data quickly and 

conveniently. Modifications to your existing data files are absolutely unnecessary! 

B-TREE-P includes all necessary BASIC source code for a B-tree system that works with any file. Included 
are an insertion subroutine, deletion subroutine, lookup subroutine, previous/next subroutine, and 
complete instructions. Plus, you receive the source code for a complete demonstration system that uses 
B-TREE-P to maintain a name and address file, including an editor program for creating and changing 
name and address records, a browser program for displaying records, and a printer program for listing file 

items in order without having to wait for a sort. 

To order, send your name, address, telephone number, and your check for $395 (plus tax in California) 
payable to Semaphore Corporation at 207 Granada Drive, Aptos, CA 95003. Or call us at (408) 688-9200 
for more information or to place a COD order. We’ll send you complete B-TREE-P source code listings and 

all necessary documentation, along with all back issues of our special B-tree newsletter. 

* 

B-TREE-P Includes a license agreeement with copy. use. and transfer restrictions limiting your use of B-TREE-P to one computer at a time. 

Multi-CPU and OEM resale agreements are also available. 

Page 5 • Pragma's Product Profiles #38 
















ANNOUNCING! 


US Pick 




'87 


P u 


Sponsored by the Northern California Pick Users, 
a non-profit organization. 



Educational Program 

10 AM 
to 

8 PM 


Expert speakers 
presenting 
sessions for users 
at all levels. 


Exhibit Program 


Now ■ 
showingj 


Noon 

to 

8 PM 


Booths to browse. 

• Software products 

• Hardware products 

• Consulting services 


Lab Program 
Noon 

A t° 

8 PM 


Compare different 
machines running 
the same collection 
of applications. 



A ONE-DAY 
EVENT 


Wednesday, September 16,1987 
Holidaylnn 

San Francisco International Airport 


yE@DSTE[i 


I want to attend I Enclosed is $20 for my all-day 
pass to all exhfoits and educational sessions. 


Company 
Address _ 
City/State 


Telephone _ 

Mail to: NCPU, Box 884474, 
San Francisco, CA 94188-4474. 






Registration: LindaGardner-King415-355-9630, Exhibits: Denis HHI415-456-0868, Educational sessions: AnnetteThuesen415-352-9663 




Pragma (not to be 
confused with 
Pragma's Product 
Profiles ) is the 
original 48-page 
technical journal for 
Pick users published 
quarterly beginning 
in August 1982. 
Each issue is packed 
with software and 
helpful information, 
including complete 
and debugged 
program listings and 
detailed, explanatory 
articles for readers at 
all levels of 
experience. Order 
your Pragma issues 
today and begin 
unlocking the secrets 
in your Pick system! 

Send $25 for 
each 48-page 
back issue to: 
Pragma, 207 
Granada Dr., 
Aptos, CA 
95003 


Pragma #1: 
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° A Program for 
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File 8 Moiectron User 
Profile ° More 
Memory, Fewer 
Reads 8 SYSMAP: A 
Cross-Reference 
System ° How to Flag 
Missing Checks ° 23 
Wish List Items 8 
Computing Modulos 
with ENGLISH 8 
Building ENGLISH 
Headings with Proc ° 
4 Queries ° Making 
Item Identifiers Hash 
Well ° Tape Handling 
° Patching the Exit 
Problem in 3.2 
SCREENPRO 8 The 
Shell Game. 


Pragma #2: We 
Have Liftoff 8 A 
Modulo Setting 
Program 8 Black Box 

TRIMotu^ and 
PROFILE Utilities 8 
SYSMAP, A Cross- 
Reference System: 
File Format Input 8 
Galinski Hamburg 
User Profile 8 LOOP 
vs. LOCATE 
Benchmarks 8 25 
Wish List Items 8 An 
Introduction to 
ENGLISH: Jargon 8 
Proc Conversions 8 
VANILLA, The No- 
Frills Manufacturing 
System: Bill of 
Material Input 8 14 
Queries 8 The 
Trouble Tree 8 2 
Letters 8 A Switchbox 
for 32 Ports 8 Security 
and the DATA/BASIC 
Programmer 8 The 
Cookie Game 8 Some 
New Subscribers. 


Unlock the Sec rots 
in Your Computer! 


Pragma #3: Is 
Pragma a Rare 
Medium, Well Done? 
8 Edit Aides 8 A Proc 
for Cross-Referencing 
Q-Pointers 8 
SYSMAP, A Cross- 
Reference System: 
Remaining File Input 
8 Rainbow Natural 
Foods User Profile 8 
More BASIC 
Benchmark 
Comparisons 8 
Justifying Ragged 
Output 8 13 Wish List 
Hems 8 Generating 
Monthly Column 
Headings 8 VANILLA, 
The No-Frills 
Manufacturing 
System: Purchasing 
8 5 Queries 8 An 
Introduction to 
ENGLISH. More 
Commands 8 Shared 
Site Checklist 8 
Converting Paint to 
Programs 8 3 Letters 


8 Generating Blank 
Forms- 8 Animal, A 
Game That Learns 8 
More New 
Subscribers. 


^EraOGCir 


Pragma #4: Survey 
Says... 8 Pacific 
Valley Bank User 
Profile 8 SYSMAP, A 
Cross-Reference 
System: Diets and 
Procs 8 Uncompiling: 
Unassembling Stark 
Code 8 Left vs. Right 
Justification 
Benchmarks 8 4 Wish 
List Items 8 A 
Comparison of BASIC 
Implementations 8 
More New 
Subscribers 8 An 
Undocumented Editor 
Capability 8 3 Local 
User Group Reports 8 
Avoiding Saved Lists 
with PQ-RESELECT 
8 Self-Documenting 
Reports 8 A Query 8 A 
Survey of Hardware 
that Supports Pick- 
Style Software 8 
Printer Trade-Offs 8 
An Introduction to 
ENGLISH: Finding 
Res 8 A Letter 8 
VANILLA, The No- 
Frills Manufacturing 
System: Purchase 
Order Entry 8 The 
Swat! Game. 


Pragma #5: Happy 
Birthdayl 8 Interactive 
Systems Producer 
Profile 8 Uncompiling: 
Regenerating Source 
Code 8 A Day of 
Revelation 8 IBM 
Personal Computer 
vs. Microdata Reality 
Benchmarks 8 
VANILLA, The No- 
Frills Manufacturing 
System: Receiving 8 
3 Wish List Items 8 
An Introduction to 
ENGLISH: Being 
Choosy 8 Converting 
Manual Paint to 
Programs 8 6 Local 
User Group Reports 8 
More New 
Subscribers 8 A 
Program That 
Reports File Pointer 
Locations 8 Boiler 
Plate Processing with 
Runoff 8 A New 
Query and an Old 
Query Answered 8 
SYSMAP, A Cross- 
Reference System: 
Automation 8 Tape 
Types 8 6 Letters 8 
Permuted Index to 
the First 4 Issues of 
Pragma 8 Amazing, a 
Maze Game. 


Pragma #6: Pick Pie 
Pictured 8 The 
Ubiouitous POINTER- 
FILE 8 Uncompiling: 
Resolving Labels 8 
An Introduction to 
ENGLISH: Syntax 
Overview 8 AccuSoft 
Producer Profile 8 
Rounding Out 7 
Benchmarks On 5 
Machines 8 Designing 
Data Entry Programs 
8 12 Wish List Items 8 
GET: An Input 
Processor 8 5 Local 
User Group Reports 8 
More New 

Subscribers 8 Do You 
Know Your Proc 
Limits? 8 VANILLA, 
The No-Frills 
Manufacturing 
System: Inspection 8 
2 Queries 8 Individual 
Accounts or Shared 
Accounts? 8 Lock 
Logic Illustrated 8 
Password Protection 
8 Two Undocumented 
Conversions 8 A 
Letter 8 How 
AMAZING Works. 


Pragma #7: More 
New Subscribers 8 A 
New Machine Visits 
Pragma 8 Bantam 
Hardware Overview 8 
Suppressing 
LOCKED Clauses 8 
An Introduction to 
ENGLISH: WITH, BY 
and TOTAL 8 Bantam 
Producer Profile 8 
VANILLA, The No- 
Frills Manufacturing 
System: Disposition 8 
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went to Vegas and recorded all the 
numbers that came up on a roulette 
wheel for a day or two. They then 
began placing 251 bets on the most 
frequently occurring numbers and 
made a few thousand dollars before the 
casino finally changed the wheel. 

If a lotto machine really does 
generate random results, then the laws 
of probability and statistics guarantee 
that the only “system" that will make 
you a winner at the state's prices is 
pure luck. But if a wheel isn’t 
balanced, or a cam is worn, or a ping 
pong ball is dented, then the gambling 
machine won’t be random, and careful 
observation of its results over a long 
enough period of time should reveal a 
bias. However, you can be sure the 
people who run the lotteries are also 
constantly looking for those kinds of 
faults. How often do they change the 
ping pong balls? If it’s every week or 
so, you’re never going to be able to 
discern a consistent bias. But if the 
machine hasn't been refurbished in five 
years, you'll have a chance (assuming 
the lottery personnel won’t first get 
fired for incompetence). 

Watch out for vague statements 
that sound like they reveal an edge, 
especially if it’s unverified hearsay. 

You say two numbers from the previous 
week's six numbers will often be drawn 
again this week? No big deal. But try 
specifying which two. That’s a much 
riskier bet. You say a large percentage 
of winning numbers have previously 
come up within the last ten games? 
Probably so! The last ten games means 
sixty draws. Out of only forty or fifty 
possible numbers in the typical lottery, 
wouldn't you expect a lot of repeat hits 
in sixty draws? 

Terms li^^flot” or "large 
percentage" or even "87%" might 
sound impressive, but often collapse 
when carefully exam ined with a little 
math. Get a gdj^kpok on probability 
and gambling, pffrably authored by a 
math professor, and you'll quickly 
learn what the odds really are. For 
example, the classic numbers game of a 
$1 bet on any number from 0 to 999for 
a $700 payoff equals an average per 
play loss of 30 cents. Bet $1 a day for 
ten years and most people will be out 
$1217. Sure, someone might hit the 


$700 on their first day (and then quit if 
they're smart), but it will be luck that 
lets them come out a winner. 

As another example, consider 
two keno machines. One will pay $320 
for a$l bet on any number from 1 to 
80, if the number is one of 20 randomly 
selected by the machine. Another 
machine also picks 20 numbers but lets 
you select 5 numbers for your $1 bet. If 
3 numbers agree, the machine pays $3, 
or $26 for 4 numbers, or $332 for five 
numbers. Which is the preferable 
machine? Your money will last longer 
on the first machine. You'll only lose 


Semaphore 
Corporation 
welcomes its 
newest B-TREE-P 
customers: 

Zircon Co. Inc. 
Tennessee Mat Co. 
Kreepy Krauly USA 
Electronic Business 
Butterfields 
Monterey County 
Compu Components 
Victory Express Inc. 

Toyota of Irving 
Elliott-Pope School 


Our technical staff is available to help you with any particular application. 

New systems also available. 


783 Old Hickory Blvd., Suite 255A Brentwood, TN 37027 (615) 373-2570 

Where someone else's experience saves you money! 


Experience an experienced computer 
system.. .and save! 


If you are considering the purchase of an experienced 
computer system, call us. It can save you a pile of money. 


We have a variety of systems available for 
quick delivery. We also stock disk drives, tape 
subsystems, memory communications control¬ 
lers and anything else you might need. 


We can provide you with useful information 
on manufacturers' product lines, policies and 
license fees. And, we will take your existing 
system in trade, but let you keep it during 
your conversion. 


Now available by popular demand! 

Our Pick Mailing List 

CREAM of the CROP 


Our 3,000 most responsive Pick users' names and addresses. 
Only $150 plus tax for one-up adhesive labels, sorted, printed, 
and delivered. Send no payment without first obtaining our 
order form and one-time use agreement. 

P/Mail by Marianne • 1893 Nadina St. • Seaside CA 93955 
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an average of 20 cents per play, while 
the second will cost you 21.9 cents. 

How about a random machine 
that picks 10 numbers from 1 to 20, and 
lets you bet $1 to match them for a 
$1,000 payoff, or $100 if you match 9 
numbers? You'll lose 94 cents per play 
on the average. (Thanks to A 
Mathematical Journey by Stanley 
Gudderfor the above examples.) 

Oh well, might as well give your 
idle Zebra something to do. Create a 
file called PICKS, then use the 
following program to record the results 
every time the state picks new numbers: 

OPEN "PICKS" ELSE STOP 
LOOP- 

CRT "WHAT NUMBER WAS PICKED": 

INPUT X 

UNTIL X = "" DO 

READ TALLY FROM X ELSE TALLY=0 

WRITE (TALLY+1) ON X 
REPEAT 
STOP 
END 

(Note that the above doesn't 


validate the input in any way.) Before 
you place your bet, use the command 
SORTPICKSBY-DSND1 (using right 
justification) to find the most frequently 
occurring numbers to bet on. But 
remember, in a long enough set of 
games against the house, you’re bound 
to lose. That's the only way casinos 
and lotteries can stay in business. 
Meanwhile, have fun. - Editors 

Praise for SCREEN.EDIT 

The screen editor in Product 
Profiles #36 is a real gem. It has given 
us a simple, easy-to-use and easy-to- 
modify word processing capability for 
selected attributes in selected files. 

For example, we continually 
expedite purchase orders with our 
vendors, with notes written on copies 
of the purchase orders. Now, the 
expeditors simply call a slightly 
modified version of your screen editor 
from the inquiry screen, and record the 
notes as part of the purchase order 
record in the computer. Now anyone 
reviewing the status of an order has the 


current information at the terminal, 
instead of having to call the expeditor. 

We are also utilizing our credit 
department to record customer orders 
when there is a credit limit problem, or 
a lack of credit information. Until now, 
the orders were held unprocessed in the 
credit department until the credit' 
problems were resolved. Now credit 
status is easily recorded and updated 
with the screen editor, and anyone 
checking orders for a customer has 
instant access to the current order 
status. 

We will soon add similar editing 
capabilities to our picking ticket, 
vendor and inventory files, among 
others. Thank you for an extremely 
valuable tool! 

One minor bug in line 83: "#" 
probably should be 

W. J. Flynn 
Los Angeles, CA 

Good guess, but the correct fix is 
to change LINE * BOTTOM to (LINE- 
TOP+1 ) §crt. height inline 83. 


We were surprised at how many 
readers called because they had never 
seen a cross-reference, and wanted to 
know what the listing at the end of the 
program was. Although cross- 
reference listings are mainly of value 
when modifying and debugging code, 
every system administrator should 
know how to generate the listings 
because they can also provide a 
valuable final check for typos before a 
program is put into production: any 
statement label or variable name that is 
only referenced once in the listing is 
either a typo and needs to be corrected, 
or is superfluous and can be deleted. 

To generate a cross-reference 
listing, create a file named BSYMor 
CSYM, depending on which name your 
compiler requires. Then compile a 
program with the (X) option, and use a 
command like SORT-1TEMBSYMf or 
CSYM) to see all label and variable 
references. Generate a cross-reference 
for every program you have, and the 
odds are you'll find at least an error or 
two. - Editors 


New B-TREE-P installations 


are sproutin 




every day 

r\_•. 
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S-TREE-P is software 
that allows y^r data to 
be instantly Wcated and 
output, without having 
to wait for lengthy file 
sorts or searches. Join 
the growing number of 
sites discovering the 
power and flexibility of 
B-TREE-P. Write or call 
Semaphore Corporation, 
207 Granada Drive, 
Aptos, CA 95003, 

(408) 688-9200. 

Long Beach Community Services • Halprin Supply Co. • Casualty Underwriters Inc. • University of California • Distributed Logic Corp. • Jet Electronics & Technology 
Inc. • NCAR • Trudell Trailer Sales Inc. • Stewart Co. • Computyme • Data Operating Systems Inc. • Tel-A-Train Inc. • Information Technology Consultants • Life & 
Health Insurance Co. of America • Flynt Systems Corp. • System Works Inc. • Miami Trading Enterprises • Generation Research • Multisystems Inc. • Infocel • Cooke 
Data Systems Inc. • John Klein & Assoc. Inc. • Condominium Insurance • Penn Independent Assoc. Inc. • Mark Card • Chandler Lumber Co. • Eye Care & Surgery 
Center • Chicago Kenworth • Wofford College • Conston Inc. • Assertive Systems • Office Works • Cornell University • City of Irvine • Excalibur Computer Systems Inc. 
• ADDS Inc. • Specs Music • Specialty Underwriters Inc. • Shoob Photography • May Trucking • Sierra Software Inc. • Medical Accounting Systems • AIPAC • 
NORPAC • Martin Cadillac Co. Inc. • Capital Software Ltd. • Oman Publishing • Reinsurance Assoc. • Hubert Distributing Co. • Livermore Police Dept. • Creative 
Computer Services • San Mateo County • Berelson Co. • Minnesota Trade Office • XScribe Corp. • Glastron-Conroy Ltd. • Opportunities Unlimited • Topsy’s 
International Inc. • ACS Systems Inc. • Bronson & Bratton Inc. • Access Software Inc. • Pactel Paging • United Collection Bureau Inc. • Laub Group Inc. • Associated 
Students UCLA • Brooks Equipment Co. Inc. • Anthony Pools • Samuelson Assoc. Co. • Educators Mutual Insurance • Magic Chef Air Conditioning Co. • Crosstern 
Corp. • Spectradype Inc. • Tampa Bay Mgmt. Services Inc. • Northwest Agricultural Coop Assoc. • Century Publishing Co. • J & L Industrial Supply Co. Inc. • Vitek 
Systems Inc. • M. Epstein Inc. • Partners National Health Plans • Lilyblad Petroleum • Target Supply • Aerojet General • Systems Support Services • Moore Industries • 

Wavetek • Unison Technologies Inc. * Meditech • Call U.S. Inc. * Smithsonian Institution. 
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